home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 44
/
Aminet 44 (2001)(GTI - Schatztruhe)[!][Aug 2001].iso
/
Aminet
/
util
/
rexx
/
rmh.lha
/
RMH
/
Examples
/
ra.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
2001-05-24
|
1KB
|
36 lines
/*
Show how to use ReadArgs()
*/
l="rmh.library";if ~show("L",l) then;if ~addlib(l,0,-30) then exit
prg=ProgramName("NOEXT")
/* this is the template of AmigaDOS list command" */
template = "DIR/M,P=PAT/K,KEYS/S,DATES/S,NODATES/S,TO/K,SUB/K,SINCE/K,UPTO/K,QUICK/S,BLOCK/S,NOHEAD/S,FILES/S,DIRS/S,LFORMAT/K,ALL/S"
if ~RMH_ReadArgs(template) then do
call PrintFault(IoErr(),prg)
exit
end
if parm.0.mult>0 then
do i=0 to parm.0.mult-1
say "DIR" i":" parm.0.value.i
end
if parm.1.flag then say "PAT:" parm.1.value
if parm.2.flag then say "KEYS"
if parm.3.flag then say "DATES"
if parm.4.flag then say "NODATES"
if parm.5.flag then say "TO:" parm.5.value
if parm.6.flag then say "SUB:" parm.6.value
if parm.7.flag then say "SINCE:" parm.7.value
if parm.8.flag then say "UPTO:" parm.8.value
if parm.9.flag then say "QUICK"
if parm.10.flag then say "BLOCK"
if parm.11.flag then say "NOHEAD"
if parm.12.flag then say "FILES"
if parm.13.flag then say "DIRS"
if parm.14.flag then say "LFORMAT:" parm.14.value
if parm.15.flag then say "ALL"